home *** CD-ROM | disk | FTP | other *** search
- ; $VER: ClassAction V4.2 Installer
- ; Script to install ClassAction
- (complete 0)
- (set #locale 0)
-
- (set @language (getenv "Language"))
-
- ; English strings, used as standard
-
- (set #conf
- ; ----------->>>>>>>>>>>>>>>>>>
- (cat "\n\nDo you want to install standard config file on your system ?\n"
- "If this is your first installation, I recommend to install it.\n"
- ))
- (set #conf-help
- (cat "\nThe installer wants to know if it is needed to "
- "install the standard config file.\n\n"
- "If you have a config file already installed "
- "just select the NO button\nto keep your own config."
- ))
- (set #welcome
- (cat "\nWelcome to ClassAction !!\n\n"
- "This script will install the program on your harddisk.\n\n"
- "\nRemember that ClassAction needs at least OS3.5.\n\n"
- ))
- (set #DOC-query-text "Where do you want to install documentation")
- (set #DOC-query-help
- (cat "\nYou have now to choose a directory where "
- "you want to install the guide file\n\n"
- ))
- (set #CA-query-text
- ; ----------->>>>>>>>>>>>>>>>>>
- (cat "Where do you want to install the ClassAction drawer ?"
- ))
-
- (set #CA-query-help
- ; ----------->>>>>>>>>>>>>>>>>>
- (cat "\nYou have now to choose a directory where "
- "you want to install the ClassAction drawer.\n"
- "The new directory is created automatically, so you only have to "
- "specify the parent dir.\n\n"
- "The icon file of ClassAction will be copied after you have imported "
- "and saved your old settings with ClassActionPrefs."
- ))
- (set #CAP-query-text "Where do you want\nto install ClassActionPrefs ?")
- (set #CAP-query-help
- (cat "\nYou have now to choose a directory, where "
- "you want to install the Prefs program file.\n\n"
- "Just click on it with your mouse and "
- "select proceed.\n"
- "You can select SYS:Prefs if you don't know where to "
- "install it..."
- ))
- ;--------->>>>>>>>>>>>>>>>>>>>>
- (set #runcap
- (cat "\n\nNow ClassActionPrefs will be started to configure ClassAction.\n\n"
- "Adjust the paths for the help file, change the options you "
- "do not like and save the changes.\n\n"
- "Your old settings can be imported if you choose the corresponding menu item.\n"
- "(CAUTION: Your old config files will be deleted thereafter!).\n"
- "If you do not run CAP or do not change the paths, the menu items for help and "
- "settings may not be active."
- ))
- ;--------->>>>>>>>>>>>>>>>>>>>>
- (set #showreadme
- (cat "\n\nDo you want to read the file classaction.readme ?"
- ))
- (set #showreadme-help
- (cat "\nThe file classaction.readme contains information about the changes since the "
- "last version. If you want have an overview without reading the whole manual, "
- "say yes to this question"
- ))
- (set #helpdir "english")
- (set #pdir "english")
-
- ; Italian strings:
- (
- if (= @language "italiano") (
- (set #conf
- (cat "\n\nVuoi installare i files di configurazione standard sul tuo sistema ?\n"
- "Se questa è la tua prima installazione, io raccomando di installarli.\n"
- "If you update from V4.1 or lower, select at least the new file "
- "ClassAction_Com.prefs"
- ))
- (set #conf-help
- (cat "\n\nL' installer vuole conoscere se è necessario "
- "installare i files di configurazione standard.\n\n"
- "Se tu hai un file di configurazione già installato "
- "semplicemente seleziona il bottone NO\nper tenere la propria configurazione."
- ))
- (set #welcome
- (cat "\nBenvenuto in ClassAction !!\n\n"
- "Questo script installerà il programma sul tuo harddisk.\n\n"
- "\nRicordati che ClassAction ha bisogno almeno dell' OS3.5.\n\n"
- ))
- (set #DOC-query-text "Dove vuoi installare la documentazione ?")
- (set #DOC-query-help
- (cat "\nTu ora devi scegliere una directory dove "
- "vuoi installare il file guida\n\n"
- ))
- (set #CA-query-text
- (cat "Dove vuoi installare il programma principale ClassAction ?"
- ))
-
- (set #CA-query-help
- (cat "\nTu ora devi scegliere una directory dove "
- "vuoi installare il file del programma principale.\n\n"
- "Se tu aggiorni una vecchia versione, "
- "il file icona di ClassAction non sarà copiato, "
- "per evitare di cancellare i tuoi parametri."
- ))
- (set #CAP-query-text "Dove vuoi\ninstallare ClassActionPrefs ?")
- (set #CAP-query-help
- (cat "\nTu ora devi scegliere una directory, dove "
- "vuoi installare il programma Prefs.\n\n"
- "Semplicemente clicca su di essa con il tuo mouse e "
- "seleziona procedi.\n"
- "Tu puoi selezionare SYS:Prefs se non conosci dove "
- "installarlo..."
- ))
-
- (set #locale 1)
- (set #heldir "italiano")
- (set #locdir "italiano")
- (set #pdir "italiano")
- ))
-
- ; German strings:
- (
- if (= @language "deutsch") (
- (set #conf
- (cat "\n\nWollen Sie die Standard-Konfigurationsdatei installieren ?\n"
- "Dies ist zu empfehlen, falls Sie ClassAction noch nicht installiert haben."
- ))
- (set #conf-help
- (cat "\nSie müssen sich nun entscheiden, ob die "
- "Standard-Konfigurationsdatei installiert werden soll.\n\n"
- "Falls Sie schon eine Konfigurationsdatei installiert haben, "
- "wählen Sie einfach 'Nein', um Ihre alten Einstellungen beizubehalten."
- ))
- (set #welcome
- (cat "\nWillkommen zu ClassAction !!\n\n"
- "Dieses Skript wird das Programm auf Ihrer Festplatte installieren.\n\n"
- "\nBedenken Sie, dass ClassAction mindestens OS3.5 benötigt.\n\n"
- ))
- (set #DOC-query-text "Wohin soll die Anleitung kopiert werden ?")
- (set #DOC-query-help
- (cat "\nNun wählen Sie ein Verzeichnis aus, "
- "in dem später die Anleitung zu finden sein soll."
- ))
- (set #CA-query-text
- (cat "Wo soll das ClassAction-Verzeichnis installiert werden ?"
- ))
-
- (set #CA-query-help
- (cat "\nWählen Sie ein Verzeichnis aus, in das "
- "die ClassAction-Schublade kopiert werden soll.\n\n"
- "Das Verzeichnis wird automatisch angelegt, also müssen "
- "Sie nur das Mutterverzeichnis angeben.\n\n"
- "Das Icon wird erst kopiert, nachdem Sie "
- "Ihre bisherigen Einstellungen in ClassActionPrefs importiert haben."
- ))
- (set #CAP-query-text "Wo soll ClassActionPrefs installiert werden ?")
- (set #CAP-query-help
- (cat "\nWählen Sie ein Verzeichnis aus, in das "
- "das Einstellungsprogramm kopiert werden soll.\n\n"
- "Eine gute Wahl ist SYS:Prefs."
- ))
- (set #runcap
- (cat "\nNun wird ClassActionPrefs gestartet, um ClassAction zu konfigurieren.\n\n"
- "Passen sie den Pfad für die Anleitung an, ändern Sie die Optionen, "
- "die Ihnen nicht gefallen, und speichern Sie die Einstellungen.\n\n"
- "Ihre alten Einstellungen können übernommen werden, indem Sie den entsprechenden Menüpunkt wählen.\n"
- "(ACHTUNG! Die alten Einstellungsdateien werden danach gelöscht!)\n"
- "Wenn Sie CAP nicht starten oder die Pfade nicht ändern, werden die Menüpunkte "
- "für die Hilfe und die Einstellungen nicht aktiv sein."
- ))
- (set #showreadme
- (cat "\n\nWollen Sie die Datei classaction.readme lesen ?"
- ))
- (set #showreadme-help
- (cat "\nDie Datei classaction.readme enthält Informationen über die Veränderungen seit der "
- "letzten Version. Wenn Sie sich einen Überblick beschaffen wollen, ohne die ganze Anleitung "
- "zu lesen, beantworten Sie diese Frage mit Ja."
- ))
-
- (set #locale 1)
- (set #helpdir "deutsch")
- (set #locdir "deutsch")
- (set #pdir "deutsch")
- )
- )
-
- ; Turkish strings:
- (
- if (= @language "türkçe") (
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "türkçe")
- (set #pdir "english")
- )
- )
-
- ; Spanish strings:
- (
- if (= @language "español") (
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "español")
- (set #pdir "english")
- )
- )
-
- ; French strings:
- (
- if (= @language "français") (
-
- (set #conf
- (cat "\n\nVoulez vous installer les fchiers standard de configuration ?\n"
- "Si ceci est votre premiere installation, je vous conseille de le faire.\n"
- "Si vous avez installé V 4.1 ou une version plus agée, selectionez au moins "
- "ClassAction_Com.prefs"
- ))
- (set #conf-help
- (cat "\nL'installeur a besoin de savoir si vous voulez installer "
- "les fichiers standards de configuration.\n\n"
- "Si vous avez deja installé votre propre configuration "
- "selectionnez le bouton NON\nPour conserver votre propre configuration."
- ))
- (set #welcome
- (cat "\nBienvenue sur ClassAction !!\n\n"
- "Cet installeur va installer ClassAction sur votre disque dur.\n\n"
- "\nSouvenez vous que ClassAction necessite l'OS 3.5 ou plus.\n\n"
- ))
- (set #DOC-query-text "Ou voulez vous installer la documentation ?")
- (set #DOC-query-help
- (cat "\nVous devez maintenant choisir le repertoire "
- "ou vous voulez installer le fichier guide"
- ))
- (set #CA-query-text
- (cat "Ou voulez vous installer le fichier principal ClassAction ?"
- ))
-
- (set #CA-query-help
- (cat "\nVous devez maintenant choisir ou vous voulez "
- "installer le programme principal.\n\n"
- "Si vous mettez a jour une ancienne version, "
- "l'icone de ClassAction ne sera pas copié, "
- "pour eviter d'ecraser votre confihuration tooltypes."
- ))
- (set #CAP-query-text "Ou voulez vous installer\nClassActionPrefs ?")
- (set #CAP-query-help
- (cat "\nVous devez maintenant choisir ou installer "
- "Le programme de preferences..\n\n"
- "Selectionnez avec votre souris et cliquez "
- "sur proceed.\n"
- "Vous pouvez choisir SYS:Prefs si vous ne savez "
- "pas ou l'installer ..."
- ))
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "français")
- (set #pdir "english")
- )
- )
-
- ; Dutch strings:
- (
- if (= @language "nederlands") (
- (set #conf
- (cat "\n\nWilt u de standaard configuratie-bestanden installeren?\n"
- "Als dit uw eerste installatie is, dan raad ik u aan om dit te doen."
- "If you update from V4.1 or lower, select at least the new file\n"
- "ClassAction_Com.prefs"
- ))
- (set #conf-help
- (cat "\nDe Installer wil weten of het nodig is om de "
- "standaard configuratie-bestanden te installeren.\n\n"
- "Als u al een configuratie-bestand heeft geïnstalleerd, "
- "selecteer dan de Nee knop om uw oude configuratie\n"
- "te behouden."
- ))
- (set #welcome
- (cat "\nWelkom bij ClassAction !!\n\n"
- "Dit script zal het programma op uw harde schijf installeren.\n\n"
- "\nHoud er rekening mee dat ClassAction minstens OS3.5 nodig heeft.\n\n"
- ))
- (set #DOC-query-text "Waar wilt u de handleiding installeren?")
- (set #DOC-query-help
- (cat "\nU moet nu een lade kiezen waar u "
- "het guide bestand wilt installeren\n\n"
- ))
- (set #CA-query-text
- (cat "Waar wilt u het ClassAction hoofdprogramma installeren?"
- ))
-
- (set #CA-query-help
- (cat "\nU moet nu een lade kiezen waar u "
- "het hoofdprogramma bestand wilt installeren.\n\n"
- "Als u een oudere versie gaat vernieuwen, "
- "dan zal het ikoon bestand van ClassAction niet gekopieerd worden, "
- "om te voorkomen dat uw tooltypes instellingen worden gewist.\n"
- ))
- (set #CAP-query-text "Waar wilt u ClassActionPrefs installeren?")
- (set #CAP-query-help
- (cat "\nU moet nu een lade kiezen waar u "
- "het Prefs programma bestand wilt installeren.\n\n"
- "Klik er eenvoudigop met uw muis en "
- "selecteer verder.\n"
- "Een goede keuze is SYS:Prefs als u niet weet "
- "waar te installeren..."
- ))
-
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "nederlands")
- (set #pdir "english")
- )
- )
-
- ; Turkish strings
-
- (
- if (= @language "türkçe") (
- (set #conf
- ; ----------->>>>>>>>>>>>>>>>>>
- (cat "\n\nSisteminize standart ayar dosyasýný kurmak istiyor musunuz?\n"
- "Bu ilk kurulum ise bunu tavsiye ederim.\n"
- ))
- (set #conf-help
- (cat "\nKurulum yazýlým standart ayar dosyasýnýn "
- "kurulmasýna gerek olup olmadýðýný soruyor.\n\n"
- "Eðer bir ayar dosyanýz hali hazýrda varsa "
- "HAYIR düðmesini týklayarak\nayarlarýnýzý koruyun."
- ))
- (set #welcome
- (cat "\nClassAction`a Hoþ Geldiniz !!\n\n"
- "ClassAction sabit diskinize kurulacaktýr.\n\n"
- "\nClassAct`in en az OS3.5 gerektirdiðini unutmayýn.\n\n"
- ))
- (set #DOC-query-text "Dökümaný nereye kurmak istiyorsunuz?")
- (set #DOC-query-help
- (cat "\nKýlavuzu kurmak istediðiniz dizini "
- "þimdi seçmelisiniz\n\n"
- ))
- (set #CA-query-text
- (cat "ClassAction dizinini nereye kurmak istiyorsunuz ?"
- ))
-
- (set #CA-query-help
- (cat "\nÞimdi ClassAction çekmecesini kurmak "
- "istediðiniz yeri seçmelisiniz.\n"
- "Yeni çekmece otomatik olarak yaratýþmýþtýr, sadece"
- "üst dizini belirlemeniz yeterlidir.\n\n"
- "ClassAction ikon dosyasý ayarlarýnýzý ClassAction ile ithal"
- "edip kaydettiðinizde yaratýlacaktýr."
- ))
- (set #CAP-query-text "ClassActionPrefs`i sabit diskiniz\nneresine kurmak istersiniz ?")
- (set #CAP-query-help
- (cat "\nÞimdi Prefs program dosyasýný "
- "kurmak istediðiniz yeri seçin.\n\n"
- "Fare ile üstüne týklayýn ve "
- "Devam Et`i seçin.\n"
- "Eðer nereye kuracaðýnýzý bilmiyorsanýz SYS:Prefs "
- "seçebilirsiniz..."
- ))
- (set #runcap
- (cat "\n\nÞimdi ClassAction ayarý için ClassActionPrefs çalýþtýralacaktýr.\n\n"
- "Yardým dosyasý için yollarý belirleyin, istemediðiniz "
- "ayarlarý deðiþtirin ve kaydedin.\n\n"
- "Ýlgili menüyü seçerseniz eski ayarlarýnýz ithal edilebilir.\n"
- "(DÝKKAT: Eski ayar dosyanýz sonra silinecektir.\n"
- "CAP çalýþtýrmaz ve yollarý deðiþtirmezseniz yardým menüleri"
- "ve ayarlar aktif olmayabilir."
- ))
- (set #showreadme
- (cat "\n\nClassAction.readme dosyasýný okumak istiyormusunuz ?"
- ))
- (set #showreadme-help
- (cat "\nclassaction.readme son sürümden beri olan deðiþiklikleri içerir."
- "Kullanma kýlavuzu okumadan bilgi edinmek istiyorsanýz, "
- "bu sorua EVET demelisiniz."
- ))
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "türkçe")
- (set #pdir "türkçe")
- )
- )
-
- ; Hungarian strings:
- (
- if (= @language "magyar") (
- (set #locale 1)
- (set #helpdir "english")
- (set #locdir "magyar")
- (set #pdir "english")
- )
- )
-
-
- ;********************************************************************
-
- (showmedia "capic" "Welcome" "upper_left" "none" 1)
-
- (message #welcome)
-
- (set thedir (askdir (prompt #CA-query-text) (help #CA-query-help) (default "Work:")))
- (set @default-dest (tackon thedir "ClassAction"))
- (makedir @default-dest (infos))
-
- ; copy the main program, .info only if it does not exist!
-
- (copyfiles (source "ClassAction") (dest @default-dest) )
- (makedir (tackon @default-dest "Icons") (infos) )
- (copyfiles (source "Icons")
- (dest (tackon @default-dest "Icons"))
- (infos) (all) )
- (complete 20)
-
- ; copy prefs program
-
- (set thedir (askdir (prompt #CAP-query-text) (help #CAP-query-help) (default @default-dest)))
- (copyfiles (source "ClassActionPrefs") (dest thedir) (infos) )
- (set cappath (tackon thedir "ClassActionPrefs") )
- (complete 40)
-
- ; copy documentation
-
- (set thedir (askdir (prompt #DOC-query-text) (help #DOC-query-help) (default @default-dest)))
- (copyfiles (source (tackon #helpdir "ClassAction.guide")) (dest thedir) (infos) )
- (complete 60)
-
- ; copy the preference file
-
- ;(if(askbool (prompt #conf) (help #conf-help) ) (
- (copyfiles (source (tackon #pdir "ClassAction.prefs") )
- (dest "ENVARC:")
- )
- ;))
-
- (complete 80)
-
- ; and now the catalogs if available
-
- (if(= #locale 1)(
- (copyfiles (source (tackon #locdir "ClassAction.catalog") (dest (tackon "locale:catalogs" #locdir))) )
- (copyfiles (source (tackon #locdir "ClassActionPrefs.catalog") (dest (tackon "locale:catalogs" #locdir))) )
- )
- )
-
- (message #runcap)
-
- (run (cat "\"" cappath "\""))
-
- (if (askbool (prompt #showreadme) (help #showreadme-help))(
- (showmedia "readme" "classaction.readme" "center" "none" 1)
- )
- )
-
- (copyfiles (source "ClassAction.info") (dest @default-dest) )
-
-
- (complete 100)
-
- (exit)
-
-